home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / comm / cnet / cnet_who.lha / Who / Loader < prev    next >
Text File  |  1996-08-26  |  940b  |  16 lines
  1. /**************************************************************************\
  2.             $VER: CNet WHO Loader, v2.64 (26-Aug-96) by Dotoran!
  3. \**************************************************************************/
  4. options results;gu=getuser;gu 1311992;dp=result;gu 39;md=result
  5. ban="mail:users/"md"/_Banners";gu 38;who=result;a=getclip('IdleWhoB0')
  6. if a="" then do;call open(f1,dp"IdlePorts","r");a=word(readln(f1),1)
  7.   do i=1 to a ; b=readln(f1) ; parse var b p'|'info
  8.   call setclip('IdleWhoB'p,info) ; end i ; call close(f1) ; end
  9. if exists(ban) then do ; call open(f1,ban,'r')
  10.   do i=1 to 9 ; w.i=readln(f1) ; end i ; call close(f1)
  11.   setobject w.1 ; putuser 38 ; call open(f1,ban,'w')
  12.   do i=2 to 9 ; call writeln(f1,w.i) ; end i ; call writeln(f1,who)
  13.   call close(f1) ; end
  14. /**************************************************************************\
  15. \****************************************** Frontiers BBS (716)/823-9892 **/
  16.